Dim $pos0,$Flag

AutoItSetOption ("TrayAutoPause",0)
AutoItSetOption ("TrayIconHide",1)

$Flag = 0
While(True)
	$pos0 = MouseGetPos()

	if($Flag = 0 ) Then
		$Flag = 1
		MouseMove($pos0[0],$pos0[1]-1)
	Else
		$Flag = 0
		MouseMove($pos0[0],$pos0[1]+1)
	EndIf

	Sleep(59000)
WEnd